Beano - Dennis the Menace Cardz/Beano Cardz: Dennis the Menace.iso/pc/email.dxr/00012.ls

Text File | 2001-04-19 | 892 b | 32 lines

on startMovie
  if the machineType = 256 then
    if XtraAvailable("DirectOS") and XtraAvailable("FileIO") then
      put GetUserEmailPref(1) into field "From"
      put GetUserEmailPref(2) into field "MailServer"
    else
      alert("DirectEmail Xtra sample movie cannot locate your email and mail server addresses, because FileIO and/or DirectOS Xtras are not installed. Please enter those addresses manually, or install FileIO and DirectOS Xtras for automatic confiugration.")
    end if
  else
    erase(member(18))
    put GetUserEmailPref(1) into field "From"
    put GetUserEmailPref(2) into field "MailServer"
  end if
  puppetSprite(20, 1)
  puppetSprite(21, 1)
end

on stopMovie
  global email
  email = 0
end

on XtraAvailable XtraName
  repeat with i = 1 to the number of xtras
    if xtra(i).name = XtraName then
      return 1
      exit
    end if
  end repeat
  return 0
end